Business Assistant/Business Assistant.iso/stock/stas100/temp1

Text File | 1991-10-03 | 1KB | 32 lines

@ 13,65 SAY SPACE(10)
@ 12,12 SAY RECNO() PICT '999'
@ 12,18 SAY SYMB PICT "XXXX"
@ 12,23 SAY NAME PICT "XXXXXXXXXXXXXX"
@ 12,38 SAY SBAL PICT "999999"
@ 12,47 SAY SP_LAST PICT "9999.999"
@ 12,56 SAY DLAST PICT "@D"
MCURRVAL=SP_LAST*SBAL
@ 12,65 SAY MCURRVAL PICT "999,999.99"
@ 13,65 SAY IIF(SBAL=Q_BOT,(SBAL*SP_LAST)-(SBAL*SP_BOT)-COMM_B-OTHER_B,(SBAL*SP_LAST)-(SBAL*SP_BOT)) PICT '999,999.99'
@ 16,24 SAY Q_BOT PICT "999999"
@ 16,31 SAY DBOT PICT "@D"
@ 16,40 SAY SP_BOT PICT "9999.999"
@ 16,49 SAY COMM_B PICT "999.99"
@ 16,57 SAY GR_BOT PICT "999,999.99"
@ 16,69 SAY OTHER_B PICT "999.99"
@ 18,24 SAY Q_SOLD PICT "999999"
@ 18,31 SAY DSOLD PICT "@D"
@ 18,40 SAY SP_SOLD PICT "9999.999"
@ 18,49 SAY COMM_S PICT "999.99"
@ 18,57 SAY GR_SOLD PICT "999,999.99"
@ 18,69 SAY OTHER_S PICT "999.99"
IF Q_SOLD<>0
@ 19,57 SAY GR_PROF PICT '999,999.99'
@ 19,68 say gr_prof/gr_BOT*100 PICT '999.99%'
ELSE
@ 19,57 SAY SPACE(10)
@ 19,68 SAY SPACE(7)
ENDIF
SET ECHO ON
SET TALK ON